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WE-Bep-1986 00:21:10 VAK-IT FORTRAN 3.4056 page 1 
SUBROUTINE DUMPREG (LUN, ICOUNT,DATA1) 

Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. - 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND S$ WOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATI * 
® ® 
® * 
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® ® 
* & 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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AUTHOR BRIAN PORTER CREATION DATE 28-OCT-1979 
Modified by: 


v03-001 EAD0134 Elliott A. Drayton 9-Apr-1984 
Removed data statements and node them equates. 


BYTE LUN 
INTEGER®2 ICOUNT 
INTEGER®2 DATA1_LEN 
INTEGER®4 DATA1(1:128) 
INTEGER®4 COMPRESS4 


CHARACTER®4 DATA2 | 
CHARACTER®3 FAO_CONTROL | 
CHARACTER®4 DATA3 | 
LOGICAL *4 SYSS$FAO 
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EXTERNAL SYSSFAO 
LOGICAL #4 LIBSSCOPY_R_DX 
EXTERNAL LIBSSCOPY_R_DX 
FAO_CONTROL = ‘!AF* 

DATA1_LEN = 4 


IF CICOUNT .GT. 0) THEN 
DO 20,1 = 1,MIN(127,I1COUNT) 
CALL LINCHK (LUN,2) 


pele ? 1 ,DATAI(1) 
FORMAT(* °,T8,'LONGWORD ',1<COMPRESS4 (1)>,'.',124,28.8) 


IF (LIBSSCOPY_R_DX(ZREF (DATA1_LEN) ,2REF (DATA1(1)) ,DATA2)) THEN 
IF (SYSSFAO(FAO_CONTROL, ,DATA3,2%VAL(4) ,ZREF(DATA2))) THEN 


ALLS al he 8 DATA3 
2140,°/',A4,'/") 


CONT INUE 
ENDIF 


RETURN 
END 


igen} 00:24:19 
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FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name 
1*4 COMPRESS4 L*4 LIBSSCOPY_R_DX LINCHK 
L*4 SYSS$FAO 
COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:DUMPREG/OBJ=0BJ$:DUMPREG MSRC$:DUMPREG 
/CHE CK=(NOBOUNDS , OVERF LOW ,NOUNDERF LOW) 
BUG MBOL EBACK) 


-Sep-19 DISKSVMSMASTER: CERF .SRCIDUMPREG.FOR: 1. 

PROGRAM SECTIONS 0c 
Name Bytes Attributes ood 
0 SCODE 215 PIC CON REL LCL SHR EXE RD NOWRT LONG 900 
1 SPDATA 32 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 90¢ 
2 SLOCAL 124 PIC CON REL LCL NOSHR NOEXE RD WRT LONG gee 
Total Space Allocated 391 boy 
901 
ENTRY POINTS 894 
Address Type Name 8o1 
0-00000000 DUMPREG id 
001 
VARIABLES id 
Address Type Name Address Type Name Address Type Name Address Type Name Oos 
2-0000000C 1*2 DATA1_LEN 2-00000000 CHAR DATA2 2=00000007 CHAR DATA3 2=00000004 CHAR FAO_CONTROL 00¢ 
2-00000010 I*4 1 AP-00000008@ I*2 ICOUNT AP-00000004@ L*1 LUN Sos 
003 

¢ 
ARRAYS 002 
Address Type Name Bytes Dimensions o0¢ 
AP-0000000Ca 1*4 DATA! 512 (128) O08 
003 
LABELS 003 
Address Label Address Label Address Label a0 
1-00000004 5° 1-00000023 10° ee 20 803 
004 
004 
004 
ie 
004 
004 
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/SHOW= (NOPREPROCESSOR,NOINCLOCE ,MAP) 
/F77 /NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


DUMPREG if: se0-1944 19iet tg UNS UMSMASTER: FERFsSecJDUMPREG.FOR:1°%" 


COMPILATION STATISTICS 
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Run 1.14 seconds 
phe Tine: 3a"! seconds 
Page Faults $4 

Dynamic Renory: 170 pages 
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